Profile of (eval 315)[Sub/Quote.pm:3]

Filename	(eval 315)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 21 statements in 222µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	10µs	26µs	JSON::Schema::Modern::::BEGIN@7.169 JSON::Schema::Modern::BEGIN@7.169
1	1	1	9µs	25µs	JSON::Schema::Modern::validate_content_schemas
1	1	1	7µs	15µs	Method::Generate::Accessor::_Generated::BEGIN@24.171
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.170

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	0s			my $isa_check_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$isa_check_for_validate_5fcontent_5fschemas"}};
4	1	0s			my $default_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$default_for_validate_5fcontent_5fschemas"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6					package JSON::Schema::Modern;
7	2	46µs	2	42µs	# spent 26µs (10+16) within JSON::Schema::Modern::BEGIN@7.169 which was called: # once (10µs+16µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 26µs making 1 call to JSON::Schema::Modern::BEGIN@7.169 # spent 16µs making 1 call to warnings::unimport
8					# spent 25µs (9+16) within JSON::Schema::Modern::validate_content_schemas which was called: # once (9µs+16µs) by JSON::Schema::Modern::evaluate at line 353 of JSON/Schema/Modern.pm sub validate_content_schemas {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.170 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	4µs			%^H = (
16					);
17	1	50µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.170
18					# END quote_sub PRELUDE
19	1	1µs			Carp::croak("validate_content_schemas is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"validate_content_schemas"} ?
21					$_[0]->{"validate_content_schemas"}
22	1	4µs			: do {
23	1	3µs	1	16µs	my $value = $default_for_validate_5fcontent_5fschemas->($_[0]); # spent 16µs making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:90]
24	5	106µs	2	23µs	# spent 15µs (7+8) within Method::Generate::Accessor::_Generated::BEGIN@24.171 which was called: # once (7µs+8µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_validate_5fcontent_5fschemas, "Bool", $value, "attribute_name","validate_content_schemas","attribute_step","isa check","mgaca","0","varname","\$self->{\"validate_content_schemas\"}"); $value }; # spent 15µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.171 # spent 8µs making 1 call to warnings::unimport
25	1	1µs			$_[0]->{"validate_content_schemas"} = $value
26					}
27					}
28	1	1µs			$$_UNQUOTED = \&validate_content_schemas;
29					}
30	1	6µs			1;
31
32					;